home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / menuman.zip / ADBOX.BAS < prev    next >
BASIC Source File  |  1992-04-06  |  1KB  |  44 lines
  1. ' For use with RUNMENU.BAS or as an example of text presentation
  2.  
  3.  
  4. CLS
  5. DIM AD$(17)
  6. LOCATE 2, 20: PRINT STRING$(40, 15)
  7. FOR SIDE = 3 TO 21
  8. LOCATE SIDE, 20: PRINT CHR$(15); SPACE$(38); CHR$(15)
  9. NEXT
  10. LOCATE 22, 20: PRINT STRING$(40, 15)
  11.  
  12. AD$(1) = "     Thanks for using MENUMAN"
  13. AD$(2) = STRING$(35, 32)
  14. AD$(3) = "If MENUMAN has been useful to you,"
  15. AD$(4) = "please send $10 in check or money"
  16. AD$(5) = "order to this address:"
  17. AD$(6) = "     Carmen Paone"
  18. AD$(7) = "     1525 Locust St."
  19. AD$(8) = "     Reading, Pa."
  20. AD$(9) = "     19604"
  21. AD$(10) = STRING$(35, 32)
  22. AD$(11) = "Please specify the size disk _ "
  23. AD$(12) = "5.25  or 3.5 _ you would like."
  24. AD$(13) = "Registered users of MENUMAN"
  25. AD$(14) = "will receive updates free"
  26. AD$(15) = "of charge. Planned updates:"
  27. AD$(16) = "bounce-bar menus, Lotus-type"
  28. AD$(17) = "menus, F-Key menus and others."
  29.  
  30. FOR SET = 1 TO 17
  31.         LOCATE SET + 3, 23: COLOR 15, 0: PRINT AD$(SET): COLOR 7, 0
  32. NEXT
  33.  
  34. SLEEP 15
  35.  
  36. CLS
  37.  
  38. LOCATE 13, 20: PRINT "ADBOX.BAS WILL NOW CHAIN ITSELF TO RUNMENU.BAS"
  39.  
  40. SLEEP 10
  41.  
  42. RUN "RUNMENU"
  43.  
  44.